#Include 'Protheus.ch'
//#Include "TBICONN.CH"  // USADAS COM SQL
//#Include "TOPCONN.CH"  // USADAS COM SQL

User Function Exer0803()
	
	Local cont := 1
	
	
	While cont <= 10
		
		Msginfo ("Contador: " + cValToChar(cont))
		cont ++
		
	EndDo
	
Return

